Ì 2
main
[mnemonic]
&(D)DJC[djc]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mnemonic 10 FREE L djc
active 1 YN L &(D)DJC[djc]|0
dx.codeset 10 CHOICE L &(D)DJC[djc]|2
last.version 10 FREE L VAL=IF{"CANADA"'=@.country -@ABS.VERSION.main[99999999
VAL=];-@ABS.VERSION.main["CMG 999999"]'<"CMG ";-@AB
VAL=S.VERSION.main[99999999];-@ABS.VERSION.main[""]}
last.version.dict 10 FREE L VAL=IF{"CANADA"'=@.country -@ABS.DIAG.main[99999999];-
VAL=@ABS.DIAG.main["CMG 999999"]'<"CMG ";-@ABS.DIAG
VAL=.main[99999999];-@ABS.DIAG.main[""]}
last.version.dict.cmg 10 FREE L VAL=IF{@ABS.DRG.cmg.indicator[IF{-@ABS.DIAG.main["CMG
VAL=999999"]'<"CMG ";-@ABS.DIAG.main[99999999];-@AB
VAL=S.DIAG.main[""]}^ABS.VERSION.mnemonic] ABS.VERSION
VAL=.mnemonic}^ABS.VERSION.mnemonic
last.version.dict.drg 10 FREE L VAL=IF{IF{-@ABS.DIAG.main[99999999];-@ABS.DIAG.main[""
VAL=]}^ABS.VERSION.mnemonic&'@ABS.DRG.cmg.indicator AB
VAL=S.VERSION.mnemonic}^ABS.VERSION.mnemonic
name 30 FREE L &(D)DJC[djc]|1
proc.codeset 10 CHOICE L &(D)DJC[djc]|3
version.cmg 10 FREE L
version.cmg.dict 10 FREE L
version.drg 10 FREE L
version.drg.dict 10 FREE L
|